home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Hyper / Me-Mz / Memory Tools.cpt / Memory Tools / card_5115.txt < prev    next >
Text File  |  1989-01-07  |  3KB  |  163 lines
  1. -- card: 5115 from stack: in
  2. -- bmap block id: 4117
  3. -- flags: 4000
  4. -- background id: 3469
  5. -- name: static
  6. ----- HyperTalk script -----
  7. on opencard
  8.   put peeklong(H904) into card field "CurrentA5"
  9.   put peeklong(H118) into card field "TheZone"
  10.   put peeklong(H10C) into card field "BufPtr"
  11.   put peekbyte(H260) into card field "VolumeCtl"
  12.   put peeklong(H2A6) into card field "SysZone"
  13.   put String(H2E0,P) into card field "findername"
  14.   put peekbyte("21E") into card field "KeyBoard"
  15. end opencard
  16.  
  17.  
  18.  
  19. -- part 1 (field)
  20. -- low flags: 00
  21. -- high flags: 0000
  22. -- rect: left=110 top=46 right=63 bottom=181
  23. -- title width / last selected line: 0
  24. -- icon id / first selected line: 0 / 0
  25. -- text alignment: 0
  26. -- font id: 3
  27. -- text size: 12
  28. -- style flags: 0
  29. -- line height: 16
  30. -- part name: currentA5
  31.  
  32.  
  33. -- part 2 (field)
  34. -- low flags: 00
  35. -- high flags: 0000
  36. -- rect: left=97 top=77 right=95 bottom=171
  37. -- title width / last selected line: 0
  38. -- icon id / first selected line: 0 / 0
  39. -- text alignment: 0
  40. -- font id: 3
  41. -- text size: 12
  42. -- style flags: 0
  43. -- line height: 16
  44. -- part name: TheZone
  45.  
  46.  
  47. -- part 3 (field)
  48. -- low flags: 00
  49. -- high flags: 0000
  50. -- rect: left=100 top=108 right=126 bottom=177
  51. -- title width / last selected line: 0
  52. -- icon id / first selected line: 0 / 0
  53. -- text alignment: 0
  54. -- font id: 3
  55. -- text size: 12
  56. -- style flags: 0
  57. -- line height: 16
  58. -- part name: SysZone
  59.  
  60.  
  61. -- part 4 (field)
  62. -- low flags: 00
  63. -- high flags: 0000
  64. -- rect: left=119 top=138 right=156 bottom=206
  65. -- title width / last selected line: 0
  66. -- icon id / first selected line: 0 / 0
  67. -- text alignment: 0
  68. -- font id: 3
  69. -- text size: 12
  70. -- style flags: 0
  71. -- line height: 16
  72. -- part name: FinderName
  73.  
  74.  
  75. -- part 6 (field)
  76. -- low flags: 00
  77. -- high flags: 0000
  78. -- rect: left=140 top=203 right=220 bottom=171
  79. -- title width / last selected line: 0
  80. -- icon id / first selected line: 0 / 0
  81. -- text alignment: 0
  82. -- font id: 3
  83. -- text size: 12
  84. -- style flags: 0
  85. -- line height: 16
  86. -- part name: VolumeCtl
  87.  
  88.  
  89. -- part 7 (field)
  90. -- low flags: 00
  91. -- high flags: 0000
  92. -- rect: left=90 top=172 right=189 bottom=165
  93. -- title width / last selected line: 0
  94. -- icon id / first selected line: 0 / 0
  95. -- text alignment: 0
  96. -- font id: 3
  97. -- text size: 12
  98. -- style flags: 0
  99. -- line height: 16
  100. -- part name: BufPtr
  101.  
  102.  
  103. -- part 11 (field)
  104. -- low flags: 00
  105. -- high flags: 0000
  106. -- rect: left=137 top=232 right=250 bottom=208
  107. -- title width / last selected line: 0
  108. -- icon id / first selected line: 0 / 0
  109. -- text alignment: 0
  110. -- font id: 3
  111. -- text size: 12
  112. -- style flags: 0
  113. -- line height: 16
  114. -- part name: KeyBoard
  115.  
  116.  
  117. -- part 13 (button)
  118. -- low flags: 00
  119. -- high flags: A000
  120. -- rect: left=9 top=292 right=337 bottom=62
  121. -- title width / last selected line: 0
  122. -- icon id / first selected line: 30557 / 30557
  123. -- text alignment: 1
  124. -- font id: 0
  125. -- text size: 12
  126. -- style flags: 0
  127. -- line height: 16
  128. -- part name: Options
  129. ----- HyperTalk script -----
  130. on mouseUp
  131.   visual effect iris close slowly
  132.   go card "options"
  133. end mouseUp
  134.  
  135.  
  136.  
  137. -- part contents for card part 2
  138. ----- text -----
  139. 00031890
  140.  
  141. -- part contents for card part 7
  142. ----- text -----
  143. 000E18F4
  144.  
  145. -- part contents for card part 6
  146. ----- text -----
  147. 06
  148.  
  149. -- part contents for card part 3
  150. ----- text -----
  151. 00001E00
  152.  
  153. -- part contents for card part 4
  154. ----- text -----
  155. Finder
  156.  
  157. -- part contents for card part 1
  158. ----- text -----
  159. 000DF624
  160.  
  161. -- part contents for card part 11
  162. ----- text -----
  163. 01